Возвращает количество строк в указанной процедуре.

Синтаксис
объект.ProcCountLines(имя_процедуры, тип_процедуры) As Long

Параметры
объект
Обязательный. Объектное выражение, значением которого является один из объектов, перечисленных в списке "Применение".
имя_процедуры
Обязательный. Переменная типа String, содержащая имя процедуры.
тип_процедуры
Обязательный. Указывает вид процедуры, которую надо найти. Поскольку в модуле может находиться несколько различных процедур Property, необходимо указывать вид искомой процедуры. Все процедуры, отличные от процедур-свойств(т.е., процедуры Sub и Function) используют аргумент vbext_pk_Proc.
В качестве аргументатип_процедуры используются следующие константы:

vbext_pk_Get	Соответствует процедуре, возвращающей значение свойства.
vbext_pk_Let	Соответствует процедуре, присваивающей свойству значение.
vbext_pk_Set	Соответствует процедуре, задающей ссылку на объект.
vbext_pk_Proc	Используется со всеми процедурами, отличными от процедур-свойств.

Дополнительные сведения
Метод ProcCountLines учитывает все пустые строки или строки комментария, предшествующие описанию процедуры, и, если процедура является последней в программном модуле, все пустые строки, следующие за процедурой.

Пример
В данном примере метод ProcCountLines используется для возвращения указанного числа строк процедуры SetupTabs в определенную область окна программы.

Debug.Print Application.VBE.CodePanes(3).CodeModule.ProcCountLines ("SetupTabs", vbext_pk_Proc)